Just Call Me Internet/Just Call Me Internet.iso/com/computer/casio_st/prog_fx/divers/poeme_ca.sha

Text File | 1994-03-01 | 4KB | 32 lines

5 CLEAR:DIMN$(50),N(50),C$(9,1),B(4),Z$(30),A(4)
9 DATA UN TEMPS POUR,C,1,1,N,1,1,", UN TEMPS POUR",C,2,1,N,1,2,", UN TEMPS POUR",C,1,1,N,1,1,C,2,3,N,1,2,F,N,0,1,SANS,N,0,2,N'EST RIEN;,N,0,2,SANS,N,0,1,NE VAUT GUERE MIEUX,F
10 DATA IL EST PLUS AISE DE SUPPORTER,C,1,1,N,1,1,QUE,C,2,1,N,1,2,F,C,1,1,N,1,1,NE SERAIT PAS,N,0,1,C,1,2,N'ETAIT PAS,N,0,2,F,MIEUX VAUT,N,0,1,AVEC,N,0,2,QUE,N,1,3,AVEC,N,0,4,F
11 DATA MIEUX VAUT,N,0,1,SANS,N,0,2,QUE,N,1,3,SANS,N,0,4,F,UN PEU DE,N,1,1,ELOIGNE,C,2,3,N,1,2,", BEAUCOUP EN RAPPROCHE",F,LE CHEMIN QUI VA VERS,C,1,1,N,1,1,PASSE PAR,C,2,1,N,1,2,F
12 DATA NI,C,1,1,N,1,1,NI,C,2,1,N,1,2,"NE NOUS MANQUENT, MAIS",C,3,1,N,1,3,F,N,0,1,DELIVRE DE,N,1,2,", MAIS QUI NOUS DELIVRERA DE",N,1,3,F,ON N'EVITE,N,0,1,QUE POUR TOMBER DANS,N,0,2,F,IL Y A,C,1,3,N,1,1,DANS,C,2,1,N,1,2,MAIS JAMAIS DANS,C,3,1,N,1,3,F
13 DATA IL N'Y A PAS DE,N,1,1,LA OU IL N'Y A PAS DE,N,1,2,F,DERRIERE,C,1,1,N,1,1,IL N'Y A SOUVENT QUE,N,1,2,F,N,0,1,DOIT DEVENIR,N,0,2,COMME,N,0,3,DOIT DEVENIR,N,0,4,F,N,0,1,EST A,N,0,2,CE QUE,N,1,2,EST A,N,0,3,F
14 DATA IL N'Y A PAS MOINS DE,N,1,1,DANS,C,2,1,N,1,2,QUE DE,N,1,2,DANS,C,3,1,N,1,3,F,LE BONHEUR EST DANS,C,1,1,N,1,1,", NON DANS",C,2,1,N,1,2,F,N,0,1,SANS,N,0,2,N'EST QUE,N,1,3,SANS,N,0,4,F
15 DATA RIEN NE PLAIT TANT,C,1,9,N,1,1,QUE,C,2,1,N,1,2,F,ON RENONCE PLUS AISEMENT,C,1,9,N,1,1,QU',C,2,9,N,1,2,F,CE QUI VIENT PAR,C,1,1,N,1,1,S'EN VA PAR,C,2,1,N,1,2,F,A QUOI BON,N,0,1,DEVANT,N,0,2,F,N,0,1,EST,C,2,4,N,0,2,C,2,5,VISIBLE,F
16 DATA C,1,1,C,1,6,N,0,1,C'EST,C,2,1,N,1,2,F,C,1,1,N,1,1,EST,C,2,4,N,0,2,C,2,7,POUR DISSIMULER,C,3,1,N,1,3,F,C,1,1,N,1,1,EST LA CONTINUATION,C,2,3,N,1,2,PAR D'AUTRES MOYENS,F
17 DATA LA HAINE,C,1,3,N,1,1,N'EST AUTRE QUE L'AMOUR,C,2,3,N,1,2,F,QUAND,N,0,1,NOUS QUITTE, C'EST QUE,N,1,2,N'EST PAS LOIN,F
30 DATA AMOUR,1,ANGOISSE,3,ECRITURE,3,ENFANCE,3,EXIL,1,MORT,2,NEGATION,2,POEME,0,MEMOIRE,2,MYTHE,0,TEMPS,0,MATIERE,2,OUBLI,1,SILENCE,0,ESPACE,1,NATURE,2,MESURE,2,CORPS,0,AVENIR,1,GOUT,0,PLAISIR,0,FIN,2,PERFECTION,2,RYTHME,0,SENTIMENT,0
31 DATA FORME,2,SCIENCE,2,LIBERTE,2,PRESENT,0,PASSE,0,HORREUR,3,VOLUPTE,2,MYSTERE,0,HARMONIE,3,CONFLIT,0,ODEUR,3,PARFUM,0,MALADIE,2,BONHEUR,0,BEAUTE,2,RAISON,2,OBSTACLE,1,GUERRE,2,POLITIQUE,2,IGNORANCE,3,DEGOUT,0,PATIENCE,2,POUVOIR,0,HAINE,3,LAIDEUR,2
50 DATA LE,LA,S'IL,SI ELLE,DU,DE LA,UN,UNE,DEVENU,DEVENUE,SEUL,SEULE,INVENTE,INVENTEE,LUI,ELLE,AU,A LA
70 FORI=1TO463:READA$:NEXT:FORI=1TO50:READN$(I),N(I):NEXT:FORI=1TO9:READC$(I,0),C$(I,1):NEXT
100 CLS:INPUT"INDIQUEZ VOS PRENOM ET NOM      ";X$:CLS:PRINT"LES APHORISMES DE";:Y$=X$:GOSUB1111:PRINTX$;" :"
110 FORK=1TOLEN(X$):X=ASC(MID(X$,K,1)):IF(X>64)AND(X<91) THEN X=X-64 ELSE IFX=32 THEN X=29 ELSE IFX=45 THEN X=27 ELSE IFX=39 THEN X=28 ELSE100
120 RESTORE:FORL=2TOX
130 READA$:IFA$="F"THEN NEXTL ELSE130
135 M=M+1:READZ$(M):IFZ$(M)<>"F" THEN135
140 FORO=1TOM-1:IFZ$(O)="N"THENB=VAL(Z$(O+2)):B(B)=(X+K*B-1)MOD50+1:A(B)=VAL(Z$(O+1))
143 NEXTO
145 FORO=1TOM-1:IFZ$(O)="N"THENP=VAL(Z$(O+2)):IF(N(B(P))AND1)ANDA(P)THENGOSUB1130:PRINTN$(B(P));:GOTO170 ELSEPRINT" ";N$(B(P));:GOTO170
150 IFZ$(O)="C"THENC=VAL(Z$(O+1)):D=VAL(Z$(O+2)):C=(N(B(C))AND2)/2:PRINT" ";C$(D,C);:GOTO170
160 IFLEN(Z$(O))>1 THENPRINT" ";Z$(O);
170 NEXTO:PRINT"":M=0:NEXTK:C=0:GOTO100
1111 I$=LEFT$(Y$,1):IF(I$="A")OR(I$="E")OR(I$="I")OR(I$="O")OR(I$="U")OR(I$="H")THEN1130
1115 IFI$<>"Y"THENPRINT" ";:GOTO1140
1120 J$=MID$(Y$,2,1):IF(J$="A")OR(J$="E")OR(J$="I")OR(J$="O")OR(J$="U") THENPRINT" ";:GOTO1140
1130 IF(C=1)AND((D=3)OR(D=9))THEN PRINTCHR$(29);CHR$(29);C$(D,1);
1135 PRINTCHR$(29);"'";
1140 RETURN